From e5975cf6213151a13d0f8ed50f103786a21a6278 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 7 May 2001 09:59:08 +0000 Subject: [PATCH] (rmail-edit-mode): Doc fix. (rmail-edit-mode-hook): New user-option. --- lisp/mail/rmailedit.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 144b81a6470..066b6adfd4c 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -1,6 +1,6 @@ ;;; rmailedit.el --- "RMAIL edit mode" Edit the current message. -;; Copyright (C) 1985, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -26,6 +26,11 @@ (require 'rmail) +(defcustom rmail-edit-mode-hook nil + "List of functions to call when editing an RMAIL message." + :type 'hook + :group 'rmail-edit) + (defvar rmail-old-text) (defvar rmail-edit-map nil) @@ -44,9 +49,10 @@ "Major mode for editing the contents of an RMAIL message. The editing commands are the same as in Text mode, together with two commands to return to regular RMAIL: - * rmail-abort-edit cancels the changes + * \\[rmail-abort-edit] cancels the changes you have made and returns to RMAIL - * rmail-cease-edit makes them permanent. + * \\[rmail-cease-edit] makes them permanent. +This functions runs the normal hook `rmail-edit-mode-hook'. \\{rmail-edit-map}" (text-mode) (use-local-map rmail-edit-map) -- 2.30.2